home *** CD-ROM | disk | FTP | other *** search
- ┌╦═╦═╦┐ ┌╦═══╦┐ ┌╦═╦═╦┐ ┌╦═══╦┐ ┌╦═══╦┐ ┌╦═══╦┐ ┌╦═══╦┐
- ║ │║ ║│ ║ ├╬══ │║ ║│ └╩═══╦┐ ├╬══
- └╩═╩═╩┘ └╩ ╩┘ ╩ └╩═══╩┘ └╩ ╩┘ └╩═══╩┘ └╩═══╩┘
- ═════════════════════════════════════════════════════════════════════════════
- Source code for using High Intense Backgrounds in Turbo Pascal!
- ═════════════════════════════════════════════════════════════════════════════
-
- Written by Zondiac / Ultimate Force.
- Written on 18 September, 1994.
-
-
- 1. What are High Intense Background Colors?
- -------------------------------------------
-
- If you enable High Intense Background Colors, you can use the colors
- 1 thru 15 as background, instead of 1 thru 7. Then, blinking will be
- disabled. So you cannot use 16-31 as foreground color.
-
- 2. How it all work?
- -------------------
-
- For High Intense background colors, you enter in your source:
-
- Intense('High');
-
- This is not case sensitive.
- For 'normal' colors, or 'blinking colors, or 'low intense background
- colors', you enter in your source:
-
- Intense('Low');
-
- These Procedures are using Assembler Routines, in INTENSE.PAS the
- routines are documentated, so I don't do it here again.
-
- ! When you're using HIGH intense background colours, you can't use
- the commands: TextColor & Textbackground. You got to use an other
- procedure. This procedure I named COL.
- To change the color, just enter:
-
- COL (15,9);
-
- '15' = Foreground color
- '9' = Background color
-
- It's very easy to use, and you make nice programs with High Intense
- backgrounds.
-
- 3. Other Stuff
- --------------
-
- This little source was made in a few minutes by Zondiac.
- Some people asked for these routines, so I made a little source in
- no-time.
-
- Personal greetings go out to:
-
- Mirage, ߣα¢K $∩φW, Dirty Harry, Hammer, Codex Warrior, RΣXoMNiuM,
- Jolly Roger, The Magician, Sacramento, Aquarius, Extricator,
- C0BRa Man, Guess Who, Big P, Vulcano, Speedy, SNiPER & Fulcrum.
-
- 4. Support
- ----------
-
- HEAD QUARTERS :
- ───────────────
-
- Name : Ultimate Force HQ
- Sysop : Mark de Groot a.k.a. Zondiac (That's me!!)
- Phone : +31-30-287842
- Online : 24hrs
- Speeds : 1200-28800 V.FAST CLASS
-
- Name : Seduction BBS / Ultimate Force HQ 2
- Sysop : Robert Vermaas (Not me :)
- Phone : +31-3435-74658
- Online : 24hrs
- Speeds : 300-28800 V.FAST CLASS
-
-
-
- DISTRO SITES :
- ───────────────
-
- Name : THe GaMeFReaX BBS
- Sysop : Dirty Harry
- Phone : +31-5150-30156
- Online : 24hrs
- Speeds : 1200-28800 V.FAST CLASS
-
- Name : SledgeHammer BBS
- Sysop : Hammer
- Phone : +31-70-3681743
- Online : 24hrs
- Speeds : 1200-28800 V.FAST CLASS
-
- Name : Seduction BBS II
- Sysop : C0BRa MaN
- Phone : +31-30-202259
- Online : 24hrs
- Speeds : 1200-14400
-
- Name : RelaXXX BBS International HQ
- Sysop : Quess Who
- Phone : +31-58-668225
- Online : 24hrs
- Speeds : 2400-14400
-
- Name : RelaXXX BBS Holland HQ
- Sysop : Big P
- Phone : +31-58-665812
- Online : 24hrs
- Speeds : 2400-14400
-
- Name : The Codex
- Sysop : Codex Warrior
- Phone : +31-2990-49376
- Online : 24hrs
- Speeds : 1200-14400
-
- BECOMMING A DISTRO :
- ────────────────────
-
- If you want also want to become a Support Board of Ultimate Force,
- just call one of these BBS's and leave a message to the sysop.
- The rules are:
-
- ■ You MUST have a BBS, that's at least 15 hrs a DAY online.
- ■ You MUST have a 14400bps Modem or Faster
- ■ You MUST make a support section on your BBS
- (A Special File Area...)
- ■ You MUST call every week to Ultimate Force HQ for the latest
- developed Files.
-
- NOTE: International Distro Sites Don't have to call Every Week!
- They may call twice a month....
-
- That's all....
-
- - Ultimate Force